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‘ HED UNDER A LICENSE AND MAY BE USED AND COPIED * 
: H THE TERM SUCH LICENSE AND WITH THE * 
a COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
a BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
rz RSON. E TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
s® TRANSFERRED. “ 
*® 
j* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE + 
:* AND SHO BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. ® 
® ® 
*® * 
°f ® 
** at 
*® ® 
*® * 
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gf AGILITY: MATH LIBRARY 
ABSTRACT: 


This module contains MTHSGMAX1: 
Return the maximum of n G floating-point values. 


VERSION: 1 
HISTORY: 


; AUTHOR: 
; Steven B. Lionel, 18-Jan-79: Version 1 


MODIFIED BY: 
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-SBTTL MTHSGMAX1 


++ 
FUNCTIONAL DESCRIPTION: 
Returns the maximum of n arguments, n is greater or équal to 1. 


CALLING SEQUENCE: 
Maximum.wg.v = MTHSGMAX1 ({arg.rg.r}) 


INPUT PARAMETERS: 
The n input parameters are G floating-point 
values and are call-by-reference. 


SoOOQOOOOOOCOOOOOOOOSoO 
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4 
5 
: 
100 
} 1 
108 
104 
8 105 
1 $ IMPLICIT INPUTS: 
8 } NONE 
109 ; OUTPUT PARAMETERS: 
1 it 
000 11 IMPLICIT OUTPUTS: 
8 0 11 NONE 
000 114 
0000 115 ; COMPLETION CODES: 
44 118 NONE 
00 «(11 
UD gy es 
eserved Operand exception can occur. 
44 120 
bop 121 
44 1 § -- 
O38 1 
0004 00 124 ENTRY MTHSGMAX1, “M<R2> 
52 6C QA bg 125 MOVZBL (AP), R2 ; R2 = arg count 
8C D5 ; 1 § TSTL (AP) + ; AP -> first arg 
50 9C S5OFD F ance 1$ MOVG a(AP)+, RO ; RO/R1 = trial max 
09 «11 44 ! 8 BRB 3$ 3; check arg count 
50 00 ag 51FD 000D 130 2$ CMPG @0(AP), RO ; if this arg is greater than trial max 
F 14 0012 131 BGTR 1$ ; then it becomes trial max 
86 D3 Bie 1 § TSTL (AP) + ; else ignore it 
F4 F 16 1335 3$ SOBGTR R2, 2$ 3; return if arg count exausted 
04 3H 134 RET 
1A 135 
O1A 136 » END 
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Symbol table Breer eee 9} i88iey RAS eee Oey many age 
MTHSGMAX1 00000000 RG 01 

denn m een ama amaeoan + 

H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- ABS. £88888 ( 0.) 89 ( 0.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_MTHSCODE 0 O1A ¢ 26.) 1% Fol PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

Fo wmwoe Soom on eam nea sonasce $ 
H Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 
Initialization g 0:00:00.09 :00:00.59 
Command processing 183 : 8: 0:52 00:0 : ¢. 4 
Pass 64 :00:00.4 :00:01.19 
Symbol table sort g :00: 90 0:00:00. ! 
Pass 2 3 :00:00. 8:88: Ne 
Symbol table output :00:00.01 404 0.05 
Psect synopsis output 0:00: “Oe 0: B08 «8 
Cross-reference output 0:00:00.0 0:00:00.0 
Assembler run totals 24 0:00:01.40 0:00:06.6 


The working Limit was 750 pages. 
1371 bytes (3 pages) of virtual memory were used to buffer the intermediate gofe- 
There were 10 pages of symbol table space allocated to hold 1 non-local an local symbols. 


source Lines were read in Pass 1, prodyc ing 10 object records in Pass 2. 
0 pages of virtual memory were used to define 0 macros. 


+ + 
; Macro Library statistics H 


Macro Library name 


-$255$0UA28: CSYSLIBISTARLET.MLB; 2 0 
0 GETS were required to define 0 macros. 


There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHGMAX1/0BJ=0BJ$:MTHGMAX1 


MSRC$:MTHGMAX1/UPDATE=(ENHS : MTHGMAX1 ) 
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